home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VB / UNSUPPRT / VOICE / VCHATAPP / CHAT_DEF.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-01-16  |  2.2 KB  |  48 lines
  1. Attribute VB_Name = "CHAT_Defs"
  2. Option Explicit
  3.  
  4. ' Application User Defined Types...
  5. ' Sound Format
  6. Public Const WAVE_FORMAT_PCM = &H1                  ' Microsoft Windows PCM Wave Format
  7. Public Const WAVE_FORMAT_ADPCM = &H11               ' ADPCM Wave Format
  8. Public Const WAVE_FORMAT_IMA_ADPCM = &H11           ' IMA ADPCM Wave Format
  9. Public Const WAVE_FORMAT_DVI_ADPCM = &H11           ' DVI ADPCM Wave Format
  10. Public Const WAVE_FORMAT_DSPGROUP_TRUESPEECH = &H22 ' DSP Group Wave Format
  11. Public Const WAVE_FORMAT_GSM610 = &H31              ' GSM610 Wave Format
  12. Public Const WAVE_FORMAT_MSN_AUDIO = &H32           ' MSN Audio Wave Format
  13.  
  14. Public Const TIMESLICE = 0.2            ' Time Slicing 1/5 Second
  15.  
  16. ' Application Constants...
  17. Public Const NoOfRings = 1                  ' Number Of Times In/Out Bound Calls Ring...
  18.  
  19. Public Const phoneHungUp = 3                ' Hangup Status Icon...
  20. Public Const phoneRingIng = 2               ' Ringing Status Icon...
  21. Public Const phoneAnswered = 1              ' Answered Status Icon...
  22. Public Const mikeNO = 6
  23. Public Const mikeOFF = 7
  24. Public Const mikeON = 8
  25. Public Const speakNO = 9
  26. Public Const speakOFF = 10
  27. Public Const speakON = 11
  28.  
  29. Public Const RingInId = 101                 ' Ringing InBound Sound...
  30. Public Const RingOutId = 102                ' Ringing OutBound Sound...
  31.  
  32. ' Toolbar constants...
  33. Public Const tbCALL = 2
  34. Public Const tbHANGUP = 3
  35. Public Const tbAUTOANSWER = 5
  36.  
  37. '== flag values for wFlags parameter ==================================
  38. Public Const SND_SYNC = &H0                 '  play synchronously (default)
  39. Public Const SND_ASYNC = &H1                '  play asynchronously
  40. Public Const SND_NODEFAULT = &H2            '  don't use default sound
  41. Public Const SND_MEMORY = &H4               '  lpszSoundName points to a memory file
  42. Public Const SND_LOOP = &H8                 '  loop the sound until next sndPlaySound
  43. Public Const SND_NOSTOP = &H10              '  don't stop any currently playing sound
  44.  
  45. '== MCI Wave API Declarations ================================================
  46. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundData As Any, ByVal uFlags As Long) As Long
  47.  
  48.